From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:11:46 +0000 (+0000)
Subject: (disassemble-1): Use `mapc' rather than `mapcar'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~26775
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=56a1431a050a598a236480d92ce634e65fe0ca38;p=emacs.git

(disassemble-1): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 01378a7f8d6..60b29bdb949 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -250,7 +250,7 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
 			 (+ indent disassemble-recursive-indent)))
 		       ((eq (car-safe (car-safe arg)) 'byte-code)
 			(insert "(<byte code>...)\n")
-			(mapcar ;recurse on list of byte-code objects
+			(mapc ;recurse on list of byte-code objects
 			 '(lambda (obj)
 			    (disassemble-1
 			     obj